home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power Programmierung
/
Power-Programmierung (Tewi)(1994).iso
/
magazine
/
pctchnqs
/
1992
/
number2
/
vbplay
/
gof.frm
(
.txt
)
< prev
next >
Wrap
Visual Basic Form
|
1992-03-24
|
10KB
|
232 lines
Grand Old Flag
wwwwwwwwwwwwwww
wwwwwwwwwwwwwww
wwwwwwwwwwwwwww
Form1-
OnPlay
Label1_Click
PlayText_Change
PlayText_KeyPress
keyAscii
Play_Change
Play_KeyPress
Playy
PlayString_ChangeC
PlayString_KeyPress#
PlayString
WhileMidt
Form_Clickb
ProcessPlayCmdA
lstring
toupperr
OpenSound4
CloseSound
SetVoiceQueueSize
nVoice
nBytes-
SetVoiceNote
nValue
nLength
nCdotsV
SetVoiceAccentC
nTempo
nVolume
nMode
nPitchV
SetVoiceEnvelopeg
nShapeS
nRepeat
SetSoundNoise
nSource
nDuration$
SetVoiceSound
lFrequency
StartSound
StopSound9
WaitSoundState
nStatem
SyncAllVoices\
CountVoiceNotes
GetThresholdEvent(
GetThresholdStatus
SetVoiceThreshold
nNotes
S_QUEUEEMPTYb
S_THRESHOLD
S_ALLTHRESHOLD<
S_NORMAL
S_LEGATO
S_STACCATO
S_PERIOD512
S_PERIOD1024
S_PERIOD2048
S_PERIODVOICE
S_WHITE512/
S_WHITE1024
S_WHITE2048
S_WHITEVOICE
S_SERDVNA
S_SEROFMI
S_SERMACTz
S_SERQFUL
S_SERBDNT
S_SERDLN
S_SERDCC
S_SERDTP
S_SERDVL
S_SERDMD
S_SERDSH
S_SERDPT7
S_SERDFQ
S_SERDDR
S_SERDSR
S_SERDST
SoundOpen
Win1_Click
mainh
status?
PlayString_GotFocus;
PlayString_KeyDowni
KeyCodeH
ShiftT
QuitButton_Click
CloseApp
S_SERDVNAMsgBox
WinPlayer
@ Form_Load
Form_Unload
Cancel
tempo`
lengthq
SelectCase
S_ERDVL
octaveK
pause
S_STACATO
ProcessPlayCmds
SetNoteSound
Whoop_ClickC
QueueNoteO
PlayNote
nNote
fbaseFreq^
fMode
nTicks
lFreq
real=
float
h80000000
cmdptrU
tlength
Form_LostFocusI
OnPlay_Timer
song1
songptr
Command1_Click
Start_Click
GMNP32E8D8GE8
P64G2
P6P6<
common
define
deftype
Form1D
close4
Q_BUFF_SIZE
notes
MousePointer
Screen
CoundVoiceNotes
Q_THRESHHOLD
Quit_Click
Thentlength
ThenPlayNote
S_SERBDNTExit
S_SERDLNExit
S_SERDMDExit
CloseSoundEnd
S_SEROFMMsgBox
Frame1_DragDrop
Source
Picture1_Click
Picture1_MouseMove
Button$
Sound
Sound
Sound
Sound
Sound
Sound
Sound
Sound
Sound
Sound
Sound
Sound
Sound
Soundv
actually pointer to int
Sound
Sound
WaitSoundState() Constants
Accent Modest
SetSoundNoise() Sources
Freq = N/512 high pitch, less coarse hiss
Freq = N/1024
Freq = N/2048 low pitch, more coarse hiss
Source is frequency from voice channel (3)
Freq = N/512 high pitch, less coarse hiss
Freq = N/1024
Freq = N/2048 low pitch, more coarse hiss
Source is frequency from voice channel (3)
Device not availableo
Out of memory
Music activey
Queue fullv
Invalid note
Invalid note length
Invalid note counth
Invalid tempo
Invalid volume
Invalid modem
Invalid shape
Invalid pitch
Invalid frequency
Invalid durationy
Invalid sourceo
Invalid state
Voice Queue size
Minimum notes before update
Global Variables
Separate the play string into commands$
ABCDEFGLMNOPT<>
Initialize starting valuesn
Process command
If command was note or rest, place in queue
Any numbers here will mean temporary length
Start things goingw
Remain here if user wants foreground mode
Form_Load
Initialize the sound system
Music already in use
Out of Memory"
Initialize voice buffer and default conditions
Form_Unload
PlayNote
Initialize arrays first time throught
p=ZP@
33333SQ@
Check input values for validity
Calcualte note duration parametersP
Calculate frequency and play note
If not legato, then play a rest to fill out note length
OnPlay_Timer
Initialize array first time through
O4MLT135D6P60<B10GP64GP64GP56MNE8D8G8MLAMNF#8MLGMNP32E8D8GE8
D8GE8D8F#2.P16MLD8E8F#GMNA.P64MLD8GAMNB.G8MLA8
MNBMLG8A8MNBMLG8A2.P15>MND5<B13GGMLGMNE8D8G8MLAP64
MNF#8MLGP32MNF#8F8EG#8B8EBMLA2.MNP8D8D8MLG.P64
F#8GP64BP64A.P64G#8P64AP17F#8P64D8P64E8GP60E7GP64F#P64G2.P6P6"
Make sure there are notes in the buffer
Quit_Click